home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / ColourMenu / c / Colourmenu
Encoding:
Text File  |  1995-07-10  |  4.1 KB  |  119 lines
  1. /*
  2.     ####             #    #     # #
  3.     #   #            #    #       #          The FreeWare C library for 
  4.     #   #  ##   ###  #  # #     # ###             RISC OS machines
  5.     #   # #  # #     # #  #     # #  #   ___________________________________
  6.     #   # ####  ###  ##   #     # #  #                                      
  7.     #   # #        # # #  #     # #  #    Please refer to the accompanying
  8.     ####   ### ####  #  # ##### # ###    documentation for conditions of use
  9.     ________________________________________________________________________
  10.  
  11.     File:    Colourmenu.Colourmenu.c
  12.     Author:  Copyright © 1994 Craig Beech
  13.     Version: 1.00 (27 Aug 1994)
  14.     Purpose: Equivalent of the RISC_OSLib colourmenu function.
  15. */
  16.  
  17. #include "DeskLib:Menu.h"
  18. #include "DeskLib:ColourMenu.h"
  19.  
  20.  
  21. /****************************************************************************
  22.  
  23. > menu_ptr ColourMenu_Create(char *name);
  24.  
  25.   Inputs:   name - title of colour menu.
  26.   Returns:  menu_ptr - colour menu.
  27.   Purpose:  Creates a colour menu similar to the RISC_OSLib function.
  28.  
  29. ****************************************************************************/
  30.  
  31. extern menu_ptr ColourMenu_Create(char *name)
  32. { menu_ptr menu;
  33.   menu_item *item;
  34.  
  35.   menu = Menu_New(name,"0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15");
  36.  
  37.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  38.   item = &item[0];
  39.   item->iconflags.data.foreground = colour_BLACK;
  40.   item->iconflags.data.background = colour_WHITE;
  41.  
  42.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  43.   item = &item[1];
  44.   item->iconflags.data.foreground = colour_BLACK;
  45.   item->iconflags.data.background = colour_GREY1;
  46.  
  47.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  48.   item = &item[2];
  49.   item->iconflags.data.foreground = colour_BLACK;
  50.   item->iconflags.data.background = colour_GREY2;
  51.  
  52.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  53.   item = &item[3];
  54.   item->iconflags.data.foreground = colour_BLACK;
  55.   item->iconflags.data.background = colour_GREY3;
  56.  
  57.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  58.   item = &item[4];
  59.   item->iconflags.data.foreground = colour_BLACK;
  60.   item->iconflags.data.background = colour_GREY4;
  61.  
  62.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  63.   item = &item[5];
  64.   item->iconflags.data.foreground = colour_WHITE;
  65.   item->iconflags.data.background = colour_GREY5;
  66.  
  67.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  68.   item = &item[6];
  69.   item->iconflags.data.foreground = colour_WHITE;
  70.   item->iconflags.data.background = colour_GREY6;
  71.  
  72.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  73.   item = &item[7];
  74.   item->iconflags.data.foreground = colour_WHITE;
  75.   item->iconflags.data.background = colour_BLACK;
  76.  
  77.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  78.   item = &item[8];
  79.   item->iconflags.data.foreground = colour_WHITE;
  80.   item->iconflags.data.background = colour_DARK_BLUE;
  81.  
  82.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  83.   item = &item[9];
  84.   item->iconflags.data.foreground = colour_BLACK;
  85.   item->iconflags.data.background = colour_YELLOW;
  86.  
  87.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  88.   item = &item[10];
  89.   item->iconflags.data.foreground = colour_WHITE;
  90.   item->iconflags.data.background = colour_GREEN;
  91.  
  92.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  93.   item = &item[11];
  94.   item->iconflags.data.foreground = colour_WHITE;
  95.   item->iconflags.data.background = colour_RED;
  96.  
  97.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  98.   item = &item[12];
  99.   item->iconflags.data.foreground = colour_BLACK;
  100.   item->iconflags.data.background = colour_CREAM;
  101.  
  102.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  103.   item = &item[13];
  104.   item->iconflags.data.foreground = colour_WHITE;
  105.   item->iconflags.data.background = colour_ARMY_GREEN;
  106.  
  107.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  108.   item = &item[14];
  109.   item->iconflags.data.foreground = colour_BLACK;
  110.   item->iconflags.data.background = colour_ORANGE;
  111.  
  112.   item = (menu_item *) (((int) menu) + sizeof(menu_block));
  113.   item = &item[15];
  114.   item->iconflags.data.foreground = colour_BLACK;
  115.   item->iconflags.data.background = colour_LIGHT_BLUE;
  116.  
  117.   return menu;
  118. }
  119.